home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dba1286.arc / TESTMENU.SC < prev    next >
Encoding:
Text File  |  1986-11-04  |  705 b   |  26 lines
  1. ;-------------------------------------- TestMenu.SC
  2. ;-------------- Test commands for displaying menus.
  3. CLEAR
  4.  
  5. ;--- Display a menu, store selection in MenuChoice.
  6. SHOWMENU
  7.    "Beep"    : "Make a few beeps",
  8.    "Flash"   : "Display a flashing message",
  9.    "Colors"  : "Play the Colors script",
  10.    "Nothing" : "Don't do anything"
  11. TO MenuChoice
  12.  
  13. ;--------------- Respond to menu choice.
  14. SWITCH
  15.      CASE MenuChoice = "Beep" :
  16.           BEEP BEEP BEEP BEEP
  17.      CASE MenuChoice = "Flash" :
  18.           @ 12,20
  19.           STYLE BLINK
  20.           ?? "Here is your flashing message..."
  21.           SLEEP 5000
  22.      CASE MenuChoice = "Colors" :
  23.           CLEAR
  24.           PLAY "Colors"
  25. ENDSWITCH
  26.